home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / ABERMUD.ZIP / FROB.C < prev    next >
C/C++ Source or Header  |  1989-07-08  |  805b  |  46 lines
  1. frobnicate()
  2. {
  3.     extern char wordbuf[];
  4.     extern long my_lev;
  5.     int x;
  6.     char ary[128];
  7.     char bf1[8],bf2[8],bf3[8];
  8.     if(my_lev<10000)
  9.     {
  10.         bprintf("No way buster.\n");
  11.         return;
  12.     }
  13.     if(brkword()==-1)
  14.     {
  15.         bprintf("Frobnicate who ?\n");
  16.         return;
  17.     }
  18.     x=fpbn(wordbuf);
  19.     if((x>15)&&(my_lev!=10033))
  20.     {
  21.         bprintf("Can't frob mobiles old bean.\n");
  22.         return;
  23.     }
  24.     if((plev(x)>9999)&&(my_lev!=10033)) 
  25.     {
  26.         bprintf("You can't frobnicate %s!!!!\n",pname(x));
  27.         return;
  28.     }
  29.     bprintf("New Level: ");
  30.     pbfr();
  31.     keysetback();
  32.     getkbd(bf1,6);
  33.     bprintf("New Score: ");
  34.     pbfr();
  35.     getkbd(bf2,8);
  36.     bprintf("New Strength: ");
  37.     pbfr();
  38.     getkbd(bf3,8);
  39.     keysetup();
  40.     sprintf(ary,"%s.%s.%s.",bf1,bf2,bf3);
  41.     openworld();
  42.     sendsys(pname(x),pname(x),-599,0,ary);
  43.     bprintf("Ok....\n");
  44. }
  45.     
  46.